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RM3D1SCON 


: 0 AX-11 Bliss-32 V4.0-742 Page 1) RM 
RMS.SRCJRM3D1SCON.B32;1 


H 1 0001 MODULE RM3DISCON (LAN GUAG fost S32) « 

; ¢ 00¢ IDENT = £2508" 

; 00 )s= 

; 4 004 BEGIN 

: 5 0005 1! 

: 6 BORe SR CCST I TCI CCITT eT eTrTt eee c citi ci iii i iii iii i iti iii ici i ii iiiiiiie 

; 7 0007 1 !* * 

; 8 0008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 8B * 

Ba. 0009 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. . | 
: 9 Bait : - ALL RIGHTS RESERVED. ® 

; ; * 
: \¢ pore 1 Ie rte SOFTWARE IS FURNISHED were A LICENSE AND MAY BE USED AND COPIED * 

; 1 01 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH at a AND WITH THE * 

; 14 0014 1 !* INCLUSION OF THE ABOVE gpd NOTICE. THIS SOFTWARE OR ANY OTHER * 
: 15 0015 1 '* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 

H 16 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 

H ? Bete : = TRANSFERRED. « 

; '* co 

H 19 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 

: 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 

H $3 it : we CORPORATION. * 

H i* * 

: 6 0098 1 != DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS’ * 

; 24 0024 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 2 

; @ 0025 1 !* * 
; 26 0026 1 !* * 

: e7 QO27 1 Peak area e eee RARER RE ARERR AEA 

; 28 0028 1 

: 29 594 ; i 
: 3 0030 1! 

; 3 Oo, : FACILITY: RMS32 INDEX SEQUENTIAL FILE ORGANIZATION 

: 33 $038 1 ' ABSTRACT: 

: $e 0034 1: INDEXED SPECIFIC CODE FOR SDISCONNECT 

; 5 0035 1! 
; 36 0036 1! 
; 37 0037 1 ' ENVIRONMENT: 

: 38 0038 1! 

; 39 0039 1! VAX/VMS OPERATING SYSTEM 

; 40 0040 1} 

; «(41 0041 1 i- 

; «642 94 1 

zs 6% 0043 1! | 
: 644 0044 1 ! AUTHOR: Wendy Koenig CREATION DATE: 10-APR-78 15:10 

; «645 0045 1! 

; 6446 0046 1! 

:.. OF 0047 1 ! MODIFIED BY: 

; 648 0048 1! 
; «649 0049 1! v03-010 MCNOO00S Maria del C. Nasr 15-Mar-1983 

; 20 it! : More Linkages reorganization 

; 2§ 0036 1; v03-009 MCNO004 _. Maria del C. Nasr 24-Feb-1983 
3 e7 Oper ! : Reorganize Linkages. 
3 2¢ boss 1! v03-008 TMKO00S Todd M. Katz 22-Dec-1982 

; 3 8026 , 2 If the file allowed update access, and is either a prologue 3 

ar 0057 1! tile or defines alternate keys, then there is a new record 


H 14 
RM3D1SCON 16-Sep-1984 01:43:40 -YAX=11_Bliss-32_v4.0-74 
vO4~000 1e=8ep-1984 15:01:20 ERMS-SRCIRMSDISCON- B32; 


buffer which also must now be returned. Its address is stored 
in IRBSL_OLDBUF, and the size of the buffer is the same as the 
size of TRBSL_RECBUF In some cases I have increased the size 
of these buffers by 2 to allow for sufficient room to store the 
piae of the record together with the record itself within the 
uffer. 
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V03-007 TMKO004 Todd M. Katz 06-Dec-1982 

66 If the file is a prologue 1 or 2 file, contains alternate keys, 
67 and is open for write access then there will be a record buffer 
68 to deallocate whose address is in IRBSL_RECBUF. This record 

9 buffer will be used to store the or imery data record being 

0 deleted during a SDELETE. The use of this buffer has become 

71 necessary because of the changes made in the SDELETE algorithm. 
7 The user data record is now deleted before the alternate keys, 
7 instead of the other way around which is how it has been done in 
74 007 the past. Thus, the primary data record must be saved off to 

75 0075 the side so that after the user data record has been deleted it 
76 0076 is still available for the extraction of the alternate keys as 
77 0077 part of their deletion. This record buffer is used to save the 
re th primary data record. 
80 0080 V03-006 TMKO003 Todd M. Katz 02-Dec-1982 

81 0081 he number of keybuffers is now represented by the symbol 
Be 908 1FB$C_KBUFNUM. 
84 0084 v03-005 TMK0002 Todd M. Katz 24-Nov-1982 
85 0085 There are now seven keybuffers to be deallocated. 
87 0087 v03-004 KBT0337 Keith B. Thompson 10-Sep-1982 
4 454 Remove ref. to RMSRETSOSPC routine 
90 0090 V03-003 KBT0164 Keith B. Thompson 21-Aug-1982 
3} sad Reorganize psects 
93 009 V03-002 TMKO0001 Todd M. Katz 01-Jul-1982 


Implement the RMS cluster solution for next record positioning. 
This involves no longer deallocation the NRP cell because 

the next record posi soning context is now kept locally in the 
IRAB and there isn't any NRP cell to deallocate. Also add the 
deallocation of a sixth keybuffer. 


v03-001 LJA0007 Laurie Anderson 25-Mar-1982 
Change KBUFSZ to reference a macro when foneut te buffer 


Remove support for truncated index keys on prologue 
three files. (SPLCTX) 


v02-014 KPLO001 Peter Lieberwirth 24-Jul-1981 
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100 

101 B19) 

106 B108 size and make IFBSB_KBUFSZ a word, now: IFBSW_KBUFSZ. 
104 0104 v02-017 CDS0004 C Saether 10-Dec-1981 
ig2 0108 Rename the psect yet again. 

107 109 v02-016 CDS0003 C Saether 29-Sep-1981 
13 b105 Deallocate 5 keybuffers always. 

179 0110 v02-015 PSK0002 Paulina S. Knibbe 08-Aug-1981 
11 11 

118 Og 

114 0114 


14 
1b-Sep=1986 01:43:40 YAX=11_BLiss=32 v6.0-76 
1e-8ep-1986 43:01:20 ERMS.SRCIRASDISCON-B32; 


Rename the PSECT again to fix broken banches. 


v02-013 CDS0002 C D Saether 16-Jul-1981 
Do not deallocate anything on indirect rundown. 


v02-012 MCNO003 Maria del C. Nasr 19-Jun-1981 
Deallocate the fifth key buffer for prologue 3 files. 


PSK0001 Paulina S. Knibbe 12-Jun-1981 
Dellocate the split context block in prologue three files 


MCNOO002 Maria del C. Nasr 15-May-1981 
Deallocate the fourth key buffer in prologue 3 files. 


MCNOO01 Maria del C. Nasr 20-Apr-1981 
Add code to deallocate record buffer for prologue 3 files. 


CDS$0001 C D Saether 6-Feb-1981 23:57 
Rename psect. 


V02-010 REFORMAT K. E. Kinnear 23-Jul-1980 10:06 
REVISION HISTORY: 


v01-009 C. D. Saether 1-Nov-1979 6:00 
RMSDISCONNOM returns lock BDB and BCB now. 


6-Feb-1979 17:22 


v03-011 


WN OO ODNOULSWN—ODOOnou 


v01-008 W. beens 
Decrement EXTRABUF IF BCNT GTR 2. 


v01-007 22-Jan-1979 13:09 


W. Koenig 
Dealiocate one lock BDB per stream, not per file. 
(Was needed for UPDATE RRV.) 


v01-006 W. Koenig 20-Nov-1978 11:19 
More changes for sharing. 


v01-005 W. toons 13-Nov-1978 13:36 
Sharing implementation changes. 


v01-004 3-Nov-1978 9:12 


W. ceonte 
Size of UPDBUF is NUM_KEYS, instead of UBUFSZ. 


W. ponte 24-Oct-1978 14:01 
Make changes caused by sharing conventions. 


W. Koenig 24-Jul-1978 14:00 
Deallocate 3rd key buffer used to store primary key on put. 
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LIBRARY "RMSLIB:RMS'; 

REQUIRE "RMSSRC:RMSIDXDEF'; 


: define default psects for code 
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RM3D1ISCON 16-Sep-1984 01:43:4 AX-11 Bliss-32 V4.0-74 
area tt RMSDISCONNECT3B 19-808- 1382 a Be RMS.SRCIRM DESCUN co 3ar4 
; 19 5 1 ZSBTTL "RMSDISCONNECT3B' 
; 137 § : GLOBAL ROUTINE RMSDISCONNECT3B : RLSRABREG = 
; 4195 8 1 !4¢ 
; 138 59 1! 
3 P44 ¢' ! FUNCTIONAL DESCRIPTION: 
: 199 62 1! This module performs the following functions required for 
; 4 8 68 : } disconnecting indexed files:~ : 
; 4 0265 1! 1 == return key buffers and update buffer 
; 20 66 7} ¢ -- return old record buffer 
: Be of : -- return record output buffer 
; 206 0269 1 ! CALLING SEQUENCE: 
; 207 0270 1! 
3 $08 0271 1! BSBwW RMS$DISCONNECT3B 
; 209 0 a 1! Entered via case branch from RMSSDISCONNECT or RMSS$CLOSE and 
3 1? if ! BSBW from RMSDISCONNECT3 
3 \¢ 0275 1! Returns to RMSDISCONNECT3 
3 i ass ; } and then branches to RMSDISCOMMON to finish up. 
3 15 $378 1 ! INPUT PARAMETERS: 
s 26 0279 1! 
; 217 0280 1! NONE 
; 218 ose) 1! 
4 19 02 ¢ 1 ! IMPLICIT INPUTS: 
; 220 0285 1! 
s del 0284 1! R8 -- RAB address 
3 $56 0285 1! R9 -- IRAB address 
3 $$ 0286 1! R10 -- IFAB address 
3; 224 0287 1! R11 -- IMPURE AREA address 
: 225 osee 1! 
; 226 0289 1 ! OUTPUT PARAMETERS: 
; 2e7 0290 1! 
: 228 0291 1! NONE 
s $3 0536 1! 
HY 0 029 1 ! IMPLICIT OUTPUTS: 
: 231 0294 1! 
3 $56 0295 1! NONE 
; $3 4343 1! 
: 34 029 1 ! ROUTINE VALUE: 
BT 
3 39 +4 \ Usual RMS status codes. 
: 38 030) 1 ! SIDE EFFECTS: 
3; 239 308 1! 
; 240 0303 1! Returns: Key buffer 
: 241 06 1! Old record buffer 
: $g es Update buffer 
3; 246 1! BCB @ the lock BDB if they existed 
; 244 $0 1! 
: 245 8 1 !-- 
; 24 it 44 } 
; 2 $19 § BEGIN 
; 248 0311 


14 
vies tt ha RMSD 1 SCONNECT38 1$-3e0-1 984 93:87:38 AMS SeSnmSpisconzoaoe4 
49 EXTERNAL REGISTER 
9 COMMON_RAB_STR; 
; so BEERS. 
54 Sts en oie 
55 ! If block 1/0 then return successfully, nothing needs doing. 
2$ Also do nothing on indirect rundown. 
28 IF, JFABCIFESV_810] OR .IFABCIFBSV_PPF_IMAGE) 
99 RETURN RMSSUC(); 
$06 Decrement the number of EXTRABUFS if we had extra buffers. 
3 IF .IRABCIRBSB_BCNT] GTR 2 
§ IFABCIFBSB_EXTRABUF] = .IFABCIFBSB_EXTRABUF] - (.IRABCIRBS$B_BCNT] - 2); 
Return key buffer, ignore errors 
BEGIN 
LOCAL 


BUFFER_SIZE; 
SIZE = .IFABCIFBSW_KBUFSZ) * IFBSC_KBUFNUM; 
IF .SIZE LSS 12 

SIZE = 12; 
RMSRETSPC1 (.SIZE, 0, KEYBUF_ADDR(1)); 
Return update buffer ignoring errors 


if .IFABCIFBSV_UPDJ 
THEN 


BEGIN 
SIZE = .1FABLIFB$B_NUM_KEYS); 
IF .SIZE LSS 12 
THEN 
SIZE = 12; 
RNSRETSPC1( SIZE, 0, .IRABCIRBSL_UPDBUF J); 


VIVYYYVYVPE VESEY YYVUNUN 


oo 
con 


! Determine the size of a record buffer, in case there is one to be. 

' returned. Make sure to include the two two bytes reserved for containing 
the record size. 

RMSKEY_DESC(0); 


:  TFABCIFOSU_ARS) EQLU 0 
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1erSep-1984 45:01:20 ERMssSRCIRASDISCON:B30+1 


RMSDISCONNECT3B 
$9 BUFFER_SIZE = .IDX_DFNCIDXSB_DATBKTSZ] * 512 
4 IF ,IFABLIFBSB_PLG_VER] GEQU PLGSC_VER_3 
0378 BUFFER_SIZE = .IFABCIFBSW_MRS] + IRCS$C_KEYCMPOVH 
0 if ‘ JRCSC“DATCMPOVH 
0 6 ELSE 
8 oe BUFFER_SIZE = .IFABCIFBSW_MRS) + 2; 
nh IF .BUFFER_SIZE LSS 12 
036) BUFFER_SIZE = 12; 
$38 ' Return record buffer if prologue 3 file, or if prologue 1 or 2 file, 
0384 ' secondary keys are defined, and the file is write accessed. Ignore all 
tte errors. 
0387 4 if (.1FABCIFBSB_PLG_VER] EQLU PLGSC_VER_3) 
0389 4 (. 1FABCIFBSB_NUM_KEYS] GTRU 1 
0390 4 AN 
0391 4 - IFABCIFBSV_WRTACCI) 
Ba6 3 THEN 
0393 4 BEGIN 
O33¢ ? RMSRETSPC1 (.BUFFER_SIZE, 0, .IRABCIRBSL_RECBUF I); 
0396 4 ! Return the old record buffer, ignoring all errors, if the file allows 
0397 4 ! update access and is either a prologue 3 file or defines alternate 
0398 4 ! keys. 
0399 4 ! 
9400 é if .IFABCIFB$V_UPDJ 
ot 4 3 _RMSRETSPC1( BUFFER SIZE, 0, .IRABCIRB$L_OLDBUF)); 
0404 END; 
0405 RETURN RMSSUC() 
0406 
0407 1 END; 
-TITLE RM3DISCON 
IDENT \v04-000\ 
-EXTRN RMSKEY_DESC, RMSRETSPC1 
-PSECT RMSRMS3,NOWRT, GBL, PIC,2 
00BC 8F BB 00000 RMSDISCONNECT3B:: 
PUSHR #*M<R2,R3,R4,R5,R7> 
03 22. «AA 05 fl 99004 BBC 5, 34¢1FAB), 2$ 
0087 31 00009 1s: BRW 12s 
F8 04 AA 0 50 O0C 2$: BBS #2, 4(1FAB), 1$ 
02 54 AD O91 on CMPB 84 {IRAB), 43 
2 18 13 BLEQU $ 
20 0096 CA 9A ot MOVZBL 182(IFAB), RO 
1 4 9 9A 0001C MOVZBL 84(IRAB), R1 
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15 
RM3DISCON 1-52 1984 01:43:4 AX-11 Bliss-32 V4.0-742 
yoe-000 RMSDISCONNECT3B 13-88-18 e 93507330 AMS -SREIRMEDISCON 632.4 
45 408 1 
46 na 1 END 
47 pet 1 
48 411 0 ELUDOM 
PSECT SUMMARY 
Name Bytes Attributes 
RMSRMS3 203 NOVEC,NOWRT, RD, EXE,NOSHR, GBL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
Comma Symbols oo------ Pages Processing 
File Total Loaded Percent Mapped Time 
~$255$DUA28: CRMS .OBJIRMS.L32;1 3109 38 1 154 00:00.4 


COMMAND QUALIFIERS 
BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:RM3DISCON/OBJ=OBJ$:RM3DISCON MSRC$:RM3DISCON/UPDATE=(ENHS$:RM3DISCON) 
Size: 203 code : 0 data bytes 


: 2 
Lexemes/CPU-Min: 13943 
"Y Used: 83 pages 
Compilation Complete 
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